home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / saided.arc / TOPICS.DOC (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  7KB  |  119 lines
  1. 1 POKE45,159:POKE46,036:CLR:POKE53265,PEEK(53265)AND239
  2. 2 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  3. 3 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  4. 4 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]aFEW";
  5. 5 PRINT"OFTHEOTHERITEMSTHATMAYBE[159]}}[153]OFINTERESTTOTHEPROGRAMMERARE";
  6. 6 PRINT"IN-[159]}}[153]CLUDEDINTHISPORTIONOFTHEDOCCU-[159]}}[153]MENTATION.fIRST,AFEW";
  7. 7 PRINT"OFTHEOTHER[159]}}[153]FEATURESOFsUPERaIDE.iNALLPROGRAM[159]}}[153]LISTINGS,W";
  8. 8 PRINT"HETHERFROMRESIDENTMEMORY[159]}}[153]ORFROMDISK,LINENUMBERSAREACCENTED[159]}}";
  9. 9 PRINT"[153]INACOMPLIMENTARYCOLORTOTHECHOSEN[159]}}[153]TEXTCOLOR.tHISISTRUEFOR";
  10. 10 PRINT"ALLCOLOR[159]}}[153]COMBINATIONSUNLESSTHEPROGRAMMERHAS[159]}}[153]CHOSENTOTYPECH";
  11. 11 PRINT"ARACTERSINTHESAME[159]}}[153]COLORASTHEBACKGROUND(NOTAGOOD[159]}}[153]IDEA";
  12. 12 PRINT"ASYOUCAN'TSEEWHATYOUTYPE!).[159]}}[153]bLOCKCOUNTSONDIRECTORIESANDWE";
  13. 13 PRINT"DGE[159]}}[153]ACTIONSTAKINGPLACEAREALSOUSUALLY[159]}}[153]HIGHLIGHTED.bIDIRECTI";
  14. 14 PRINT"ONALSCROLLING[159]}}[153]WITHWRAPAROUNDFROMPROGRAMENDTO[159]}}[153]PROGRAMBEG";
  15. 15 PRINT"INNINGISSTANDARD.oNEVERY[159]}}[153]SPECIALFEATUREOFOURSCROLLERHASTO[159]}[171]";
  16. 16 PRINT"``````````````[178]````````[178]``````````````[179]}[155]gENERALtOPICS[159]}[154]pAGE1[159]}[155]rET";
  17. 17 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  18. 18 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  19. 19 GOSUB113
  20. 20 POKE53265,PEEK(53265)AND239:CLR
  21. 21 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  22. 22 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  23. 23 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]DOWI";
  24. 24 PRINT"THPACKEDLINES.iFYOUSCROLLUP[159]}}[153](ONLYUPWILLWORK)TOAPACKEDL";
  25. 25 PRINT"INE[159]}}[153](APROGRAMLINEWITHMORETHANEIGHTY[159]}}[153]CHARACTERS),EDITINGIS";
  26. 26 PRINT"MADESIMPLER.[159]}}[153]iFYOUTYPETHEALLOWEDABBREVIATION[159]}}[153]FORANYcOM";
  27. 27 PRINT"MODOREbasicCOMMANDATTHE[159]}}[153]BEGINNINGOFTHATCOMMAND,ERASETHE[159]}}";
  28. 28 PRINT"[153]REMAINDEROFTHECOMMANDWITHSPACES[159]}}[153]ANDCLOSETHEGAPUSINGTHEd";
  29. 29 PRINT"elETEKEY[159]}}[153]--ALLOFTHELOGICALLINE,NOMATTER[159]}}[153]HOWLONGWILLTRA";
  30. 30 PRINT"ILALONG.iNTHISWAY[159]}}[153]COMPLICATEDGRAPHICDESIGNSDON'THAVE[159]}}[153]TOBE";
  31. 31 PRINT"DUPLICATED,EXACTSPACINGIS[159]}}[153]AUTOMATICALLYMAINTAINEDANDRE-EN";
  32. 32 PRINT"TRY[159]}}[153]OFTHELINEGREATLYSIMPLIFIED.iNALL[159]}}[153]DIRECTORYWEDGECOMMAND";
  33. 33 PRINT"S,THECURRENT[159]}}[153]LINEISTHEONLYALTEREDLINE.tHUS,[159]}}[153]MULTIPLEAP";
  34. 34 PRINT"PENDSMAYBEMADEFROMTHE[159]}}[153]SAMEDIRECTORYLISTING,SCRATCHESAND[159]}[171]";
  35. 35 PRINT"``````````````[178]````````[178]``````````````[179]}[155]gENERALtOPICS[159]}[154]pAGE2[159]}[155]rET";
  36. 36 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  37. 37 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  38. 38 GOSUB113
  39. 39 POKE53265,PEEK(53265)AND239:CLR
  40. 40 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  41. 41 PRINT"[159][176]``````````````````````````````````````[174]}[181][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCUME";
  42. 42 PRINT"NTATION[181][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]SAVESMAY";
  43. 43 PRINT"BEMADEFROMTHESAMEDIREC-[159]}}[153]TORYLINE,ETC.aLLATTEMPTSWEREMADE[159]";
  44. 44 PRINT"}}[153]TOKEEPsUPERaIDEASUSERFRIENDLYAS[159]}}[153]POSSIBLE.aLLNORMALWEDG";
  45. 45 PRINT"ECOMMANDS[159]}}[153]USETHE@SIGNJUSTASNORMALchrget[159]}}[153]WEDGESDO.aLL";
  46. 46 PRINT"EXTRAWEDGECOMMANDS[159]}}[153]USETHE*SIGNANDATWOLETTERABBRE-[159]}}[153]VIA";
  47. 47 PRINT"TIONFOLLOWEDBYASPACE.tHEWHOLE[159]}}[153]WORDOFTHECOMMAND(ORANYTHING";
  48. 48 PRINT"ELSE[159]}}[153]FORTHATMATTERAFTERTHEFIRSTTWO[159]}}[153]LETTERS)CANALSOBE";
  49. 49 PRINT"USED.fOREXAMPLE[159]}}[153]*append[FILENAME]WILLHAVETHESAME[159]}}[153]RESULTAS";
  50. 50 PRINT"*ap[FILENAME](OR*apricot[159]}}[153][FILENAME]FORTHATMATTER).bESURE[159]";
  51. 51 PRINT"}}[153]TOHAVETHESPACEBETWEENTHECOMMAND[159]}}[153]ANDTHEARGUMENT.";
  52. 52 PRINT"[159]}}}}[153]iNITIALHELPSCRE";
  53. 53 PRINT"ENSMAYBEDUMPEDBY[159]}}[153]PRESSINGTHErestoreKEYFOLLOWEDBY[159]}[171]``````";
  54. 54 PRINT"````````[178]````````[178]``````````````[179]}[155]gENERALtOPICS[159]}[154]pAGE3[159]}[155]rETURN=";
  55. 55 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  56. 56 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  57. 57 GOSUB113
  58. 58 POKE53265,PEEK(53265)AND239:CLR
  59. 59 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  60. 60 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  61. 61 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]THEd";
  62. 62 PRINT"KEYASSOONASTHEYARESHOWN[159]}}[153]INTHEOPTIONSMENU.tHEYMAYNOT";
  63. 63 PRINT"BE[159]}}[153]DUMPEDAFTERTHEYARESAVEDINMEMORY.[159]}}";
  64. 64 PRINT"}}[153]iNTERMSOFMEMORYUSAGE,THECASSETTE[159]}}[153]BUFFERISUSE";
  65. 65 PRINT"DDURINGTHEINITIALLOAD[159]}}[153]OFTHEUTILITYANDNOTAGAIN.679-767[159]}}[153](";
  66. 66 PRINT"$02A7-$0300)AND253-254($FD-$FE)[159]}}[153]ARETHEONLYAREASOFFREEram";
  67. 67 PRINT"USEDBY[159]}}[153]sUPERaIDE.sEVERALPAGETHREEVECTORS[159]}}[153]ARE,HOWEVER,CHANG";
  68. 68 PRINT"ED.sEETHECOMPAT-[159]}}[153]IBILITYSECTIONFORMOREDETAILS.tHE[159]}}[153]ENTIRE";
  69. 69 PRINT"SECTIONOFramUNDERbasicIS[159]}}[153]USEDASISALLTHEramUNDERTHEi/";
  70. 70 PRINT"o[159]}}[153]ANDTHEkernal.iFTHEmlMONITORLOW[159]}}[153]ISSELECTED,29900-32776";
  71. 71 PRINT"($74CC-$8008)[159]}}[153]ISUSED.tHEHIGHmlMONITORRESIDES[159]}}[153]FROM50135-53";
  72. 72 PRINT"247($C3D7-$CFFF).[211]CREEN[159][221][221][153]EDITISFROM49152-50238($C000-$C43E).[159][221][171][192][192]";
  73. 73 PRINT"````````````[178]````````[178]``````````````[179]}[155]gENERALtOPICS[159]}[154]pAGE4[159]}[155]rETUR";
  74. 74 PRINT"N=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  75. 75 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  76. 76 GOSUB113
  77. 77 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$="    [197]XIT [212]HE [208]ROGRAM    "
  78. 78 POKE53265,PEEK(53265)AND239
  79. 79 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  80. 80 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  81. 81 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}";
  82. 82 PRINT"}}[153]dOYOUWISHTO:";
  83. 83 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````";
  84. 84 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}";
  85. 85 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}";
  86. 86 PRINT"[173]````````````````````````[189]}}";
  87. 87 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}";
  88. 88 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}";
  89. 89 PRINT"}}}}";
  90. 90 PRINT"}}[150]hAPPYpROGRAMMING![159]";
  91. 91 PRINT"}}}}";
  92. 92 PRINT"}}}[171]``````````````[178]```````";
  93. 93 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][199]ENERAL [212]OPICS[159][221][154][212]HE[197]ND[159][221][155][196]OC[198]ILE#3[159][221][173][192][192][192][192][192][192][192][192]";
  94. 94 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  95. 95 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  96. 96 GETW$
  97. 97 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  98. 98 FORX=1066TO1070:POKEX,PO:NEXTX
  99. 99 FORX=1097TO1101:POKEX,PO:NEXTX
  100. 100 IFW$=""THEN96
  101. 101 IFW$=CHR$(13)THENGOTO108
  102. 102 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN104
  103. 103 GOTO96
  104. 104 CO=CO+1:IFCO>2THENCO=1
  105. 105 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]"
  106. 106 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]"
  107. 107 GOTO96
  108. 108 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
  109. 109 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  110. 110 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]"
  111. 111 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  112. 112 LOAD"DOC.DRIVER",8
  113. 113 GETW$
  114. 114 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  115. 115 FORX=1066TO1070:POKEX,PO:NEXTX
  116. 116 FORX=1097TO1101:POKEX,PO:NEXTX
  117. 117 IFW$=""THEN113
  118. 118 RETURN
  119.